home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Wallpaper XY.xpl < prev    next >
Text File  |  2001-01-20  |  2KB  |  76 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="2"
  3. "COUNT"="2"
  4. "UIPATH"="Appearance\Desktop\Wallpaper"
  5. "NAME"="Wallpaper Origin"
  6. "VERSION"="1.55"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Origin left (X)"
  9. "TEXT 2"="Origin top (Y)"
  10. "DESCRIPTION 1"="Use these settings to specify the origin of your current wallpaper. This can be used to move the picture to the bottom or the right corner of your screen (all values in pixels)."
  11. "DESCRIPTION 2"="After you have changed the values, you need to restart or re-login to see the changes."
  12. "DESCRIPTION 3"="To remove the settings again, clear both fields and apply the changes."
  13. "AUTHOR"="Xteq Systems"
  14. "CONTACTURL"="http://www.xteq.com"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"=" "
  17.  
  18.  
  19. sP="HKCU\Control Panel\Desktop\"
  20. sV1="WallpaperOriginX"
  21. sV2="WallpaperOriginY"
  22.  
  23. Sub Plugin_Initialize 
  24.  i=RegReadValue(sP & sV1)
  25.  if IsEmpty(i) then
  26.   SetUIElement 1,""
  27.  else
  28.   SetUIElement 1,i
  29.  end if
  30.  
  31.  i=RegReadValue(sP & sV2)
  32.  if IsEmpty(i) then
  33.   SetUIElement 2,""
  34.  else
  35.   SetUIElement 2,i
  36.  end if
  37. End Sub
  38.  
  39. Sub Plugin_CheckData(ElementIndex)
  40. End Sub
  41.  
  42. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  43.  s=GetUIElement(1)
  44.  if len(s)=0 then 
  45.  
  46.   'User wants to kill value
  47.   s=RegReadValue(sP & sV1)
  48.   if IsEmpty(s)=false then
  49.    Call RegDeleteValue(sP & sV1)
  50.   end if
  51.  
  52.  else
  53.   Call RegWriteValue(sP & sV1,s,1)
  54.  end if
  55.  
  56.  s=GetUIElement(2)
  57.  if len(s)=0 then 
  58.  
  59.   'User wants to kill value
  60.   s=RegReadValue(sP & sV2)
  61.   if IsEmpty(s)=false then
  62.    Call RegDeleteValue(sP & sV2)
  63.   end if
  64.  
  65.  else
  66.   Call RegWriteValue(sP & sV2,s,1)
  67.  end if
  68.  
  69.  
  70.  Call Restart
  71.  'Call IndicateSettingChange
  72. End Sub
  73.  
  74. Sub Plugin_Terminate 
  75. End Sub
  76.